home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO54.MNU < prev    next >
Text File  |  1986-10-31  |  376b  |  12 lines
  1. [BALLOON]^C^C(Setq A +
  2. (Getreal "Enter text height: "));\+
  3. (Setq P1 (Getpoint "Enter arrow point: "));\+
  4. (Setq P2 (Getpoint +
  5. "Enter balloon center point: "));\+
  6. (If (<= (Car P2) (Car P1))+
  7. (Setq B (* -1 A)) (Setq B (* 1 A)));+
  8. (Setq P3 (List (+ (Car P2) B) (Cadr P2)));+
  9. Dim;Lea;!P1;!P2;!P3;^C^C+
  10. (Setq P1 (List (+ (Car P3) B) (Cadr P3)));+
  11. Insert;Ball;!P1;!A;;;
  12.